home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 June / 64er_Magazin_93-06_1993_Markt__Technik_de_Side_B.d64 / listing 4-3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  698b  |  26 lines
  1. 10 rem ***  glide - effekt
  2. 11 :
  3. 12 :n1 =7492 :rem anfangsnote
  4. 13 :n2 =4455 :rem zielnote
  5. 14 :z  =200  :rem zaehler    (level)
  6. 19 :
  7. 20 rem * ton einschalten
  8. 21 :
  9. 22 s=54272:pokes+4,8:pokes+24,15 :rem volle lautstaerke
  10. 23 pokes+6,248:pokes+5,0:pokes+4,33 :rem adsr und saegezahn-wellenform poken
  11. 29 :
  12. 40 rem * glide !!
  13. 41 :
  14. 42 rem start
  15. 43 :
  16. 44 tn=n1 :rem  anfangstonhoehe setzen
  17. 45 :
  18. 50 rem schleife
  19. 51 :
  20. 52 pokes+1,tn/256:pokes,tnand255 :rem  tonhaehe in sid poken
  21. 53 ifn2<tnthentn=tn-z:iftn<n2then70:rem zielton < tonhoehe: tonhoehe vermindern
  22. 54 ifn2>tnthentn=tn+z:iftn>n2then70:rem zielton > tonhoehe: tonhoehe erhoehen.
  23. 55 goto52 :rem  ...das ganze solange, bis ziel erreicht.
  24. 69 :
  25. 70 pokes+1,n2/256:pokes,n2and255 : rem genaue zieltonhoehe poken
  26.